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DATA COMPRESSION FOR THE 2068 and OTHER STUFF 
c 09/88 George Gilder Assoc. Inc. 


I have been eexperimenting with data compression for the past 
few years. This system allows shorter data statements and has 
faster data entry as well. 


Allow me to give you a few examples: 

1 I have developed a telephone book / dialing system. The 
numbers are entered as A$ strings. In New York City, we have to 
dial a 1 before each area code. My telephone number is 1718 - 
544-1106, 11 digits in length. I have dimensioned 250 names 
and numbers. 


I have designed the system to use only 8 digits. 718 stands for 
Queens. I enter that number as Q5441106. 516 is the area code 
for Long Island. That suffix is "L". "F" is Florida, "J" for 
New jersey, "X" for 1800, etc. 


Before the number is processed, it is sent through a small 


routine ie; IF AS(i,1)="L" THEN LET A$="1516"+a$ (2). It not 
only saves bytes (3*2*250=1500),but allows rapid entry as 
well. 


2 I use a mail merge client mailing program. There are data 
strings that uses 500 names and addresses. The files are 108 
charactors long, written for the toy industry. In that industry 
at least half the potential customers are at 200 Fifth Avenue, 
or at 1107 Broadway. The files, as seen in the Write a Record 
routine are written with a series of promts. Let us examine 
the routine: 


f= the file number. line 5200 dimensions each part of every 
file. I have used the following variables: k-10, h=2,j=1. The 
total number - 108. 


The code is a one letter prefix to identify the files by areas 
of each companies' expertise, ie, Dolls, Games, etc. When the 
input for president's name you have two choices. Type in the 
actual name if known or enter P. If you chose the latter, line 
5300 writes "Atten: president". 


When the Address prompt appears, enter T (for toy) and line 
5500 assigns the 200 Fifth address complete to zip code. Enter 
B (Broadway) and line 5510 writes the rest. The subroutine at 
900 sorts each data line into a recognizable format. 


Athough each of these examples took lots of time to develop, 
The ultimate saving in computer entry time is fantastic. 
Perhaps you can come up with your examples. 


I can answer any questions by SSAE only. George Gilder 67-38 
108th Street Forest Hills, NY 11375. 
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5000»REM XX XK KK بل‎ ke ke e kk چو‎ e ke یو‎ e ہاو‎ ke و‎ 


5005 REM * Write a record * 
5010 REM ck ck ck از‎ አ እእ کل‎ ko ko ارہ ار بہار‎ ko k k k kk 
5020 INPUT f 

5050 IF ደ=0 THEN GO TO 1 

5150 IF £>500 OR £<0 THEN GO TO 
VAL "5150" 

5200 CLS : DIM k$(1): DIM nS$(k+k 
): DIM m$(32): DIM AS(k+k): DIM 
bS(K*H): DIM zS(VAL "7"): DIM 
P$ (8) l 

5220 INPUT "Code: ";k$: IF k$="0 
" THEN GO TO 1 

5250 INPUT "Pres. Name: ";n$ 
5270 IF n$(j)="0" THEN GO TO 1 
5300 IF n$="P"+x$ THEN LET n$=" 
Att: President" 

5400 INPUT "Co. Name : ";mS$ 

5450 INPUT "Address : ";as 

5500 IF a$(j)="T" AND a$(H TO )= 
x$ THEN LET a$="200 Fifth Av 
enue": LET b$="New York,N.Y. ": 
LET z$="10010": GO TO 5700 

5510 IF a$(j)="B" AND a$(H TO )z 
x$ THEN LET aS="1107 Broadwa 


y": LET bS="New York,N.Y. ": LE 
T z$="10010": GO TO 5700 

5550 INPUT "City,State: ";bs 
5650 INPUT "Zip: ";z$ 

5700 INPUT "Phone :";p$ 


5800 LET aa=0: LET y$-k$-«n$-«m$«a 
$+b$+z$+p$: LET s$(f)=y$: GO SU 
5 900 - 

5900 PRINT £': GO SUB 8000: GO T 
O 5000 


V 


Ul J 


FOR/NEXT loops in this expense section. 
With 17 expense items, your screen will dis- 
play a Code 5 at the bottom— press “C” and 
ENTER to continue. 

4) Enter “2” and return to menu. Exit 
the program by entering menu item 12. 

5) Delete all the following statements in 
your listing (simply type each number and 
ENTER, one by one.) 

235, 236, 238, 239, 241, 242, 255, 260, 265, 
519, 522, 523, 524, 525, 526, 527, 528, 531, 
532, 533. 

6) Type GOTO 1700 and ENTER. Your 
screen will show a report code 2. Now type 
GOTO 2500 and ENTER. Your graph format 
will appear on the screen. 

7) Type GOTO 3600 and ENTER. Again 
your screen will show a report code 2. Type 
GOTO 4500 and ENTER. Your income/ 
expense graph format will appear on the 
Screen. 

8) Delete the following statements in your 
listing by typing and ENTERing each number 
individually. 

1700, 1720, 1740, 3600, 3610, 3620. 

9) For the 2-Year expense comparison 
graph, you must enter each of last year's 
monthly expenses. (If you do not do this, this 
graph should be ignored.) Type in the follow- 
ing: 

LET R(1)- (January last year expenses) 

LET R(3)=(February last year expenses) 

LET R(5)=(March last year expenses) 
Continue with LET R statements 7, 9, 11, 13, 
15, 17, 19, 21, 23 for the remaining months of 
last year. (Note that these are all odd numbers 
— even numbers are reserved for the curreni 
year.) 

Last year's expense entries will be held in 
reserve and will not appear on the graph until 
the corresponding months this year are en- 
tered. (Except, the graph will show each suc- 
ceeding month's expenses for last year as well 
as those through the current months.) 
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balance sheet. There is also a provision for 
entering transfers of funds between accounts. 

The program works best with your com- 
puter in FAST mode. 

To use the program, each month simply 
enter your income and expenses—typing in 
the name of the item and the amount of the 
transaction. The computer will ask which ac- 
count the inoney is for or from, which you 
enter by code “X,” "S," etc. 

The computer will add together similar 
items and adjust your assets and liabilities 
page, your income and expense totals, your 
cash flow, and your graphs. 

If you have outstanding loans such as a 
mortgage, be sure to enter your principal 
payments under menu item #10. Your interest 
on the loans should be entered on the expense 
statement. 

The program also allows you to enter trans- 
fers of funds between different accounts under 
menu item #10. ' 


Instructions for Activating the Program 

1) After loading “Money Manager” in your 
2781, save the program on tape just as it is in 
case you mess up the rest of the instructions. 

2) GOTO 5 and enter menu item £1. Enter 
an income account name, e.g. "SALARY," 
enter a zero, then enter another zero. Your 
screen will print the account name, followed 
by “0” under Month and “0” under year. 
Continue entering account names, followed 
by the two zeros until you have entered six. 
(Note: If you want more or less than six 
categories, change the DIM statements in this 
section as well as the FOR/NEXT loops). 

3) Enter “2” and return to menu. Press “2” 
and you will be on the expense sheet. Here, 
you must type in each expense account name, 
followed by “0,” “0,” just as you did with 
income. The program is set up for 17 expense 
items, so, if you want more or less, you will 
need to change the DIM statements and 


ar 


8K ROM 
16K RAM 


A Personal 
Money 
Management 
Program 


Alan Pattison 


Where do we stand financially? This is 
one of the questions of greatest concern 
in the home office. We make our depos- 
its, write our checks, and pay our bills, 
but these activities do not provide the 
information we need to interpret our po- 
sition. We need to know not only our in- 
come and outgo, but also where our 
money is and what it is doing. We need 
to know not only this year, but also last 
year and other years. The program be- 
low is one that I developed to provide 
answers to such questions for my own 
situation. You may not have the same 
needs or questions, but perhaps the pro- 
gram will enable you to pose the ques- 
tions you want to your computer and 
find the answers you need. 

When the program has been activated, 
simply enter income, expense, and loan prin- 
cipal items each month. The computer will 
then provide you with: 

1) An income statement for the current 

month and the year-to-date. 

2) An expense statement for the current 
month and the year-to-date. 

3) A balance sheet showing your various 
assets, liabilities, and net worth. 

4) A cash flow statement for the month and 
the year-to-date. 

5) A comparison of expenses to date with 
your yearly budget. 

6) A month by month graph comparing in- 
come with expenses. 

7) Another month by month graph compar- 
ing each month's expenses this year with 
those of last year. 

8) A listing showing month by month 
income and expenses as well as your av- 
erage monthly income and expenses. 

You can make as many entries as necessary 
for any item—right out of your check book, 
Visa or Master Charge records, etc. Your 
checking account balance and all other assets 
and liabilities will appear correctly on your 
———Á— — በ 


Alan Pattison, 3422 French Loop NW. Olympia, 
WA 98502. : 


1 


b) Load your Liabilities: 

LET MG=(Mortgage principal balance) 
LET L=(Other loan balance) 

13) Type GOTO 5 and ENTER. Your pro- 
gram is now set up for you to use. If you are 
starting the program in the middle of the year, 
enter income and expense items month by 
month for all prior months. This is important 
if your graphs are to work correctly. If you do 
make entries for prior months, your balance 
sheet will no longer be correct. Therefore you 
should go back to instruction #12 and reload 
your Assets and Liabilities. 


IF U$="“MA" THEN LET MA=MA+E 
LET HtB)-H(B) +E 


480 LET ዮ (5) =F (8) +E 

482 LET FT=FT +E 

483 PRINT F$ 

434 PRINT 0 DATE"; TAB 67 ዛ(5) 
ji TAB ہے‎  ) 

485 PRINT rs 

486 PRINT “TOTAL INCOHME";TRB 16 


;HT;TRB 24;FT 

488 PRINT S$ 

492 GOTO 400 

500 REM *£EXPENSE STATEMENT ¥ 
255 REM AFTER ENTERING EXPENSE 
CATEGORIES, DELETE 519,522,523,5 
24,525.526.527,526.531,532,535 


tiom 
S19 LET D$-"HONTH" 


$20 PRINT ten Tae 160 TAB 
25; YERR" 

S22 DIM I$£(17.15) 

S23 DIM H(17) 

S24 DIM T(17) 

Ses LET HT-e 

526 LET ፕፕ=ፀ 

S27 LET PPT-O 

528 LET PPX=0 

S29 PRINT S$ 

S30 FOR N-1 TO 17 

S31 INPUT ፲ቁ (ክህ) 

S32 INPUT MIN) 

533 INPUT ፕ (N) 

525 PRINT ፲ (1) , ፐ66 16;N(N};TAB 
24;T(N3 


SS@ PRINT FS 


S6@ PRINT “TOTAL”; TAB 16;MT; TAB 
ےد‎ TT 

565 PRINT T$ 

$70 PRINT "TYPE ""1"" TO MAKE E 
NTRIES, "^22 TORETURN TO START. 
572 INPUT U 

575 IF U«»i THEN GOTO 5 

578 REM xEXPENSE ENTRIES: 

580 PRINT 

„581 PRINT "IS THIS A NEU MONTH? 
582 INPUT Y$ 

S83 IF Y$="NO" THEN GOTO 599 
584 IF Y$="YES" THEN LET ይይፐ=ወ 
585 PRINT "TYPE HONTH-3 LETTER 
ABBREVIATION“ 

S86 INPUT D$ 

599 FOR D=1 TO 17 STEP 1 

ود ہر LET‏ 592 

594 LET N=0 

596 LET H(D)-e 

598 NEXT 6 

539 CLS 

S@@ PRINT TAB 8; “EXPENSE ENTRIE 
دوہ‎ PRINT S& 

602 PRINT “TO END ENTRIES TYPE 
“ገው. = 
دوہ‎ PRINT T$ 


665 PRINT TAB 15;D$;TRB 25; "YEA 


697 PRINT ےد‎ 
PRINT "ITEM:" 


entered one by one (numbering not neces- 
sary). The titles may be changed to fit your 
own situation. Type in as follows: 
a) Load your Assets: 
LET X (Checking account balance) 
LET V=(Visa or other cash card balance) 
LET Sz (Savings account) 
LET C=(Cash on hand) 
LET CD=(Certificates of deposit) 
LET ST=(Stocks and bonds) 
LET PR=(Real and personal property) 
LET MA=(Other assets) 


Listing 1. 


PRINT 
‘YEAR™ 


“ITEM: TAB 15;M$;TRB 


J TAB 16;H(B);TRE 


2 
2 
2 
<= 
= 


Fs 
“TOTAL" 


PRINT T$ 

PRINT “TYPE 
ES, 
P 


j; TAB 165;HT;TRE 


1 
4 


~e TO MAKE t 
"2"" TO RETURN TO 3S 


INPUT U 


IF U-2 THEN GOTO S 
REM #£INCOME ENTRIES ¥ 


o 
1 
2 
5 
2 
5 
e 
5 
e 
e 
S PRINT 
e 
1 
2 
I 
3 
Tr 
4 
5 
6 
9 
e 5 THIS A 


4 
24 
4 
5 
5 
6 
6 
? 
4 
= 
8 
e 
4 
። 
። 
ፎ 
و‎ 
ፎ 
3 
3 
3 
9 
1 


+. 3 
A ONO foto Dy Anton 


PRINT NEU MONTH? 


QOQOGG QUO GGG Q 
NO N00 ن۸ ۵م‎ 
0ن۸‎ ) 6 


PRINT “TYPE HONTH-3.LETTER 
REUIATION" 


74 CLS 
375 PRINT TAB 8,” 


376 PRINT S$ 
„380 PRINT "TO END ENTRIES TYPE 


A 


INCOME ENTRIES 


258 PRINT T$ 

395 PRINT TAB 16;NS: TAB 25; "YEA 
R> 

396 PRINT 25 

40@ PRINT “ITEN 

410 INPUT P$ 

415 IF P$-"RETURN" THEN GOTO 5 
420 LET R-LEN P$ 

425 DIM R#(6,A) 

i30 FOR 5=ሏ TO ይ 

$35 LET R$(B)-U$(B) 

440 IF P$-R$(OB) THEN GOTO 452 
+42 NEXT B 

+44 PRINT 

446 PRINT "NO SUCH CHTEGORY--TY 
PE AGAIN. 


459 GOTO 489 
L$(B);THE 16:۳۲ )61 j; TRE 
24;F (B) 


THEN LET CDrFCD«E 
THEN LET ST-ST4E 


10) Type GOTO 5 and ENTER. Type menu 
item #8 and your budget page will be on the 
screen. As each budget expense item appears, 
type in and ENTER your budgeted amount for 
that item. When the screen shows a report 
code 5 at the bottom, press “ር።” for the next 


page. 
11) Delete listing statements 3100, 3105, 
3120, and 3135. 


12) You must now load the computer with 
additional data in order to make your program 
work right. Thisis done with LET statements, 


2 REM xrr&kxkxr DESIGNED BY 
ALAN PATTISON. QLYMPIA. UR 
S REM “MONEY MANAGER" 


6 REM. MA=MISC. ASSETS, X=CHECKE. 
S=SAVINGS .C=CASH,CD=C 
~ST=STOCKS.MG=MORTGA 


2 
9 
e 
1 


$ 
ኋ 


| 


MPP 
MOUNN: 
Uu 
n 
H 
z 
4 
ኀ 


PRINT "CO YOU WANT TO:" 
PRINT 
PRINT TAE 1:"1)CHECK INCOME 
ATEMENT 7" 
5 PRINT TRB 1; “2; CHECK EXPENS 
= STATEMENT =" 
40 PRINT TAG 1, ''2) CHECK ASSETS 
SNO LIABILITIES? 
4S PRINT TAG 1; "4) ENTER INCOME 
ITEMS?" 
se PRINT TARE ٤ رج“‎ ENTER EXPENS 
3 ITEM 
ss ይ 1;"&)SEE INCOMEZE 
“PENSE 
Se F 4, “72 SEE 2-YERR E 
SENSE ف‎ 
SQ PRINT TAB _1:"°8) COMPARE EXPE 
NSES WITH BUDGET? 
وہ‎ PRINT TAB 1;"9j SEE CASH FLG 
4 STATEMENT?" 


'ጊኋ6) TRANSFER FUNDS; FR 
“33) SEE MONTHLY INCOH 


62 PRINT 
5 EXPENSE? 
63 PRINT "1l&i EXIT PROGRAM?“ 
64 PRINT 
6S PRINT "ENTER YOUR CHOICE. 1 
TO 128." 
ذ۴‎ INPUT ت‎ 
7S CLS 
ae IF THEN 
8&5 IF THEN 
2e IF THEN 
9S IF THEN 
lea IF THEN 
i05 IF THEN 
11e IF THEN E 
115 IF THEN GOTO ک٥‎ 
138 IF THEN GOTO 6668 
iig IF @ THEN GOTO 6500 
120 IF 1 THEN GOTO 7590 
121 IF & THEN GOTO 1000 
eee RE NCOME STATEMENT ٭‎ 
210 RE TER ENTERING CATEGORI 
5, DELETE 235.235,238,239,241,2 
255.260.255 
23 PRINT T T ٭‎ 
25 PRINT T INCOME $” 
30 PRINT T S 
32 PRINT T 
S DIM L$t6. 
6 DIM |ዘ(ፎ፣ 
S DIM F16) 
9 LET H$£z"HONTH 


4600 PRINT 
$610 NEXT I 
S020: PRINT AF 16,2." کے سے‎ ፲ጅ 


5030 PRINT AT 17,2;" OF HMH م‎ MH J 


J A = 0 ND“ 
$5040 PRINT AT 19,5; “INCOME AND E 
sos ` 


XPENSE 1982" 
5050 PRINT AT 21.6; “(TYPE 


52095 REM #CRSH ips STATEMENT € 


io. 
10; 


) 16; H$; TRB 25; "YER 
6889 PRINT S$. 


6090 PRINT “INCOHE:“; TAB 16;HT ST 
AS 24;FT 

S102 PRINT 

6110 PRINT "EXPENSE:";TRB 16;HT. 


TAB 24;TT 

6120 PRINT 

6122 PRINT “LOAN PRIN. 
16;PPT;TAB 24;PPX 

6125 PRINT 

6130 PRINT F$ 


5140 PRINT 

6150 PRINT _ “NET: “;TAB 16; HT-MT -P 
ST; TAB 24; INT ((FT-TT-PPX) £160+. 
S) 7108 

61690 PRINT T$ 
6170 PRINT 

6180 PRINT " TYPE 
RN TO STRRT." 

6198 STOP 

6208 GOTO 5 

6500 CLS 

6510 REM *LOAN REPAYMENTS AND TP 
ANSFERS BETWEEN ACCOUNT S ¥ 

65550 PRINT “WHICH COLE sory DO YO 


PD.:";TRB 


""C"" TO RETU 


UP DRNT 3 EHICH CRIES 9808 
6560 PRINT 
6570 PRINT " 1)PRINCIPRL PAYMENT 


" 2) TRANSFERS BETWEEN 


“WHICH LOAN ARE YOU FP 
ENTER ""1"" OR ""2"" 


PRINT 

PRINT TAB 5;" 
PRINT 

PRINT TAB 5; 
INPUT ZO 


IF وت‎ THEN GOTO 6625 


1) MORTGAGE" 
“2) INSURANCE LG 


DAAAIAMDAAAM: poo 
ወወወወወወሯወወወወ (Oi 
NUPPRP ‘(HOOO HOO 


”مھ ذ000۸ص ج مر 


a 
0 
N 
fo 
o 
2 
ሟ 
2 
o 
o 
Q 
9 


"(DO NOT INCLUDE INTE 


REST HERE - IT SHOULD BE ENTERED 
WITH CUR- RENT EXPENSES." 

6635 PRINT 

6640 PRINT “PRINCIPAL PRYMENT = 
66590 INPUT PP 


6655 LET PPT=PPT+PP 

6656 LET PPX-PPX«PP' 

6669 PRINT "$£";PP 

FROM WHICH ACCO‏ ىہ 


IF ZQ-2 THEN LET L-L-PP 
IF ZQ-1 THEN LET HGzHG-PP 
X" THEN LET XzX-PP 
~ THEN LET; 5-5-PP 
THEN-LET UrU-PP 


TS 
€ IF Z@=1 THEN PRINT “NEU MOR 
TGAGE BALANCE: $"j HG 
6760 IF ZQ-2 THEN PRINT 
ር 


“NEW INS 
BALANCE: $'L 

770 PRINT Sf 

69090 PRINT "TYPE ""1"" IF RM UI 
SH TO IRRHSFERBETUEEN ACCOUNTS. 
""2"* TO RETURN TO” oV 
TO ENTER ANOTHER. WORN PAYMENT ر‎ 
"U"4"" TO SEE 06:035 ` 
6910 INPUT KK 

6915 CLS 

6920 IF KK=2 THEN GOTO 

6930 IF KK=3 THEN GOTO 56٥5 

6940 IF KK=4 THEN GOTO 800 

7288 CLS 

7005 PRINT =ፉ 

7010 PRINT “ANT. YOU UISH TO TRA 
NSFER: $“; 

2235 INPUT UE 

7020 PRINT VE 

70625 PRINT 

26928 PRINT “FROM WHICH ACCOUNT? 

2 

7040 INPUT U$ 


7052 PRINT ህፍ 


7070 PRINT “TO WHICH ACCOUNT? “; 
7080 INPUT U$ 

7898 PRINT وں‎ 

7100 ፲ኛ U$£-"$S" THEN LET S-zS-UE 
ድ IF U$£z"HR" THEN LET HA=HA --ህ) 


THEN LET G 
IF D$£-"DEC" THEN LET G 


2 
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IF v;-2£ AND 


IF v ኑ፥=ዱ THEN 

NEXT uU 

PRINT 

NEXT ፲ 

PRINT AT 35.9. 
کے‎ 0N D" 
PRINT RT 17.90 
A S$ ON D" 
BENT AT 19 


PRINT AT 
ETURN) “ 
STOP 
GOTO 5 
o CLS 
5 REM xBUDCGET ے‎ 
6ይ REM AFTER ENTERING BUDGET, 
ETE 3109: 8 2222295 S135 

2; 
TAB 12; 
TAB 12; 


T£ 
DEXPENSES" 
: TAB نچ‎ "BUDGET" 
PRINT 


S$ 
DIM P117) 
LET 5ፐ=ወ 
FOR N=1 TO 17 
PRINT I$(N);TAS 16:T(N); 
INPUT P(N) 
PRINT TRE 25;F (Ni 
LET BT =BT +P (N? 
NEXT N 
PRINT F$ s 
PRINT "TOTRLS" 


001000 


D 


ወወ‏ یق یں 


Ù 


37; “EXPENSE 


m 
ue 


=3..6; “ (ፐሃይፎ ""C" 
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ሽሽ 
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HH 
22 
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PRINT ;TRB 16;"TO 


460 


PERO خر خر‎ EP جا یگ پر خر‎ f SSS GO ROG O GI OG: GLO 
m 


TAB 16;TT; TR 


“JN ዝመ ፉ )( خرن ن)‎ OOP 0 حر خر ز۸ تی‎ ٣ چیم مخ‎ UPU Q 


OC UGG‏ زرا تنا 207635 ورا زرا زر 


""C"" TO RETUF 


GOTO 5 

REM £INCOHE^;EXPENSE GRAPH # 
REM DELETE 3600,3610. 3622 A 
RUNNING 3600 

DIM Utz4) 

FOR I=1 TO 28 

PRINT I;" ; 

CLS 

PRINT RT 5.,0;5$ 

PRINT "IT UILL TAKE A MINUT 
TUO TO PREPARE GRRPH......S9 
UE A CUPOF COFFEE." 

PRINT T$ 
PAUSE 2900 
IF 


&&egumAüCtmmp preps 


THEH LET 
THEH LET 

" THEN LET 
"APR" THEN LET 
" THEH LET 
“JUN THEN 
“”ጋህኒ” THEN 
" CHEN LET 
"SEP" THEN 
" THEN 
THEN LET 
THEN 


pp ወወ6)2(3ወወ6ክከ)ሠ ህበ Qo) 6-4ሀሀዝ 
put - Vosa este, . ቤጤ... ፡ 
۷۸ 
4 
0 
D 


pp pf p ROT P م‎ FOO ATA ህ 
PELL 


ዘዘዘዘዘዘዘዘዘዘ! 


NO ተዝ ۸ ጎሳ ጎቡ ሃቡ ነ ዝጽ 
NANN ہر ہر ہر مر مر‎ OO ሁ ቢን 
۸۰م‎ ۵ “٥ك‎ <۸ ۹ 


ዘዘዘዘዘዘዘዘ!] 


H 
٦ 
42 2232323323 
1 
000٥000000 ٥ 


CLS 

FOR ፲=3=5 TO ወ STEP -1 
PRINT AT_ABS I-15,.1«5; Iga; 
FOR ህ=3 TO 24 

IF NOT ህ(ህ) THEN GOTO 46900 
LET Y-U(U)«-I«200 

IF vY«-25 THEN PRINT " “i 


QXJOUPOUP oS ہ‎ 6 666016 O 
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42 

«23 

40 

45 

45 

45 

45 

es 

45 

45 

15 IF U-1 THEN GOTO 4585 
45 IF Uz3 THEN GOTO 4585 
45 IF U=5 THEN GOTO 4585 
45 IF U=7 THEN GOTO 4585 
45 IF U=3 THEN GOTO 4565 
45 IF Uz11 THEN GOTO 4585 
43 IF U=13 THEN GOTO 4585 
ሬጅ IF ህ=35 THEN GOTO 4585 
4259 IF U-z1? THEN GOTO 4585 
4570 IF U-19 THEN GOTO 4565 
4571 IF U-21 THEN GOTO 4585 
4572 IF U=23 THEN GOTO 4585 
4575 IF Y>-26 AND Y«25 THEN PRIN 
T - - 

49560 IF Y»24 THEN PRINT “H`; 
4582 NEXT U 

4585 IF Y>-26 AND Y«25 THEN PRIN 
T Um"; 

4555 IF ost THEN PRINT “8”. 
4590 NEXT 


Money Management, continued 


610 INPUT C$ 

615 IF C$-"RETURN" THEN GOTO 5 
620 LET J-LENH C$ 

630 DIM X$(17.40) 

540 FOR N=1 TO 17 

650 LET XS(NI=I$(N) 

660 IF C$£-X$(N) THEN GOTO 700 
679 NEXT N 

66@ PRINT "HO SUCH CATEGORY --TY 
PE AGAIN. 


700 PRINT IŞIN); TAB 16;M(N) STAB 
24 (Nd 
785 PRINT “AHT.: “ረ 

INPUT ። 


NNNNANWV 
NNO 
0600 0 

H 

z 

፡። 


724 IF ወ 

725 IF Q 

727 IF Q 

730 LET 

735 LET 

740 LET 

742 LET TT K 

743 PRINT 5 

745 PRINT "TO DRTE";TRB 16i MIN) 
[TRB =ፊ.;ፐ (N) 

246 PRINT F$ 

748 PRINT “TOTAL EXPENSE": TAB 1 
5;MT;TRB 24;TT 

749 PRINT S$ 

750 GOTO 685 

800 REM #ASSETS/LIABILITIESs 
S810 REH THESE ARE INITIALLY ENT 


ERED WITH LET STATEMENTS. 
PRINT TAB 4j ጨጨ ሬጨጨመጨጮ፡፡፡መ፡፡ 
ee ae 

827 PRINT TAÐ. 4; “E ASSETS AND LI 


ABILITIES ፳” 
526 PRINT TAB 4; "mmm 


3i "CHECKING BRL." 


3;"UISR BAL. "j TAB 
2 

„ESO BRINT TAB 3, "SAUINGS BRL."; 
555 PRINT TAB 3; "CASH BAL. “TAE 
S56 PRINT TAB 3, “ርፎፎፕ5. OF DEF. 
STAB 20;CO 

865 PRINT TAB 3, “STOCKS”; TAB 26 
"576 PRINT TAB 3; “MISC. ASSETS": 
TAB 20; MR 

372 PRINT TAB 3; "PROPERTY"; TAB 


PP 

37s. PRINT AB 3; "M ASSETS"; TAB 
26; X404S ፋር +66 CST ہیں‎ EPR 

268 PRINT S$ 

885 PRINT TAB 3; “MORTGAGE; TAB 


20; HG 
Bae PRINT TAB 3;"INS. LOAN"; TAG 


2 
893 PRINT ْ "M LIABILITIES" 
TAB 20; MG+L 
$94 PRINT S$ 
595 PRINT TAB 3;"N NET VORTH' ۳ 

hisa 28j. (X+U+5S +C +CD +ST +HA +PR) — (MG + 


$98 PRINT S$ 
98@-PRINT "ENTER 
N TO START.” 

9218 STOP 

GOTO 5 

REM #EXIT PROGRAM INCLUDI. 


"YO HAVE INDICATED 
EXIT THIS PROGRAM. 


"IF YOU HAVE MADE ይሠ። 


""Cc"" TO RETUR 


1910 PRINT 
CHANGES" 
12815 PRINT 
1020 PRINT 


OX (aaa 
1025 PRINT E 


ME 
“soo HOT FORGET TO FF 


12940 PRINT 
1250 PRINT “TO SAVE THIS PROGRA“ 
AS CHANGED PSEPARE THE TAPE PET 


SRBER,  BEGTNRECOHD ING: AND TYPE 
eso STOP 

970 SAVE “MONEY MANGGER 

28 GOTO S 

29 STOP 

$3 REM #2-VYR EXPENSE GRAPHS 

59 REM AFTER RUNNING 1700, CEL 
TE 1700,1729.174¢ 

69 EH’ LAST YEARS MONTHLY EXPE 
SE RE ENTERED WITH LET STATE! 


R 
n 
522 TO R(z23) (E 


i 

1 

i eo 

1 o 

1 eo 

1 5 

i 6 

N 5 

ENTS- EVERY ALTERNA 
TE NUMBER) 

1700 DIM R(24) 

1720 FOR I=1 TO 29 

1740 PRINT I;" e 

2000 CLS 

2201 PRINT RT 98,0;5$ 

2002 PRINT "IT GILL TAKE A couc- 
E OF HINUTESTO PREPARE GRAPH...? 
RAKE ጸ BRERK." 

2083 PRINT T$ 

29094 PAUSE 2009 

2305 IF D$-"JRHN" THEN LET G-2 
2010 IF D$-"FEE" THEN LET ር=ዱ 
2ፎ35 IF D$ MAR“ THEN LET G=6 
2326 IF D$ APR" THEN LET ዕር=ወ 
zo25 IF D$ MAY" THEN LET ር=ኋፎወ 
2030 IF D$£-"JUN" THEN LET G-12. 
2035 IF D$£-"JUL" THEN LET G=14 
2040 IF D$£-"AQUG" THEN LET ዕር=3ይ 
2245 IF D£-"SEP" THEN LET G=18 
2850 IF D$="OCT" THEN LET G-20 


7640 PRINT F$ 

7650 PRINT "TOTRLS";TAB 8:II;TRE 
15; EE; TAB 22, II-EE 

7660 PRINT T$ 

"670 PRINT “ENTER "C"" TO INCLU 


DE MORTGAGE.“ 
7580 STOP 
76938 CLS 


72780 PRINT TE 

7710 PRINT TAB Fi" INCOME’: TAB 14 

+ EXPENSE": TAB 22; “DIFFERENCE” 

7722 PRINT وک‎ 

7725 PRINT 

7730 PRINT TAG Si ፲፲, TAB 15: EE: TA 

B 23. ፲፲--፳፳ 

7735 PRINT F$ 

7740 LET PP= fur (HGX ریو‎ " 

7750 PRINT TER پر‎ UP Ae a; “EMTS. 

j; TAB 15; PP 

7760 PRINT FE 

7770 PRINT “WEAR’:I TAB S; IL: TAG 3 

S; EE ح٤٤‎ AE SII-EE-RF. 

7780 PRINT 

7790 PRINT S$ 

7791 LET 55=ወ 

7792 FOR B=1 TO 24 STEP 2 

7793 LET RazmPtE) 

7794 LET 55=55 +:66 

7795 NEXT E 

7800 PRINT “MEAN MONTHLY INCOME: 
$"; INT (i|ZI-;HH)xr*10xr2«.5).10 

2 و ٭× 

7310 PRINT “MEAN MONTHLY EXPENSE 

xt. $ $"; INT ((EE/HHjx10xrz2«€.5) /ኋሮ 

##2 


7316 PRINT 
*£t: SS INT 


“MEAN EXPENSE LAST 


( (55/32) £10 € 24.5) “1C 


2x2 

2928 PRINT "(*xxEXCLUDING HORTGRA:; 
7820 PRINT S¢ 

7339 PRINT "ENTER ““ነሮ-“ TO RETUE 
H TO START." 

7840 STOP 

7356 GOTO = 


Ed.—For the convenience of our readers 
the author will supply the program on 
cassette for $8 including postage. Readers 
outside the U.S. should include in the 
payment enough to cover the additional 
cost of postage for about 2 ounces. 2" 


Tim MONTHLY INCOME AN. 


73129 IF U$z"U" THEN LET ህ=ህ -ህ፳ 
7130. IF وین‎ ep THEN LET XzX-UE 
7140 IF U$£-"CO" THEN LET CD-CD-uU 
7150 IF U$£-"ST" THEN LET ST-ST-Uu 
7160 IF U$£-"C" THEN LET C-C-UE 
7170 IF U$£-"S" THEN LET S=S+WE 
7180 IF U£-"HR" THEN LET ኑ16 =!ጎዩ፤ +ነ) 
7190 IF U$-"U" THEN LET ህ=ህ +ህ፳ 
7209 IF U$£-"X" THEN LET X-zX-«UE 
2210 IF viedo“ THEN LET CD=CO +1} 
z220 IF U$&z"ST" THEN LET 5ፐ==ፐ +ህ 
7230 IF U£-" THEN LET CzC«UE 
7235 PRINT T$ 

7242 PRINT 

7250 PRINT "TYPE ""1"" IF YOU UI 


2 
58. TO MAKE ANOTHER TRANSFER. 


""a"" IF YOU UISH TG RETURN T 
QO START, ""3"" TO SEE REVISED AC 
COUNTS. 

7260 INPUT JE 

7265 CLS 

7270 IF JE-1 THEN GOTO 7000 

7275 IF JE-3 THEN GOTO 89 

7298 GOTO 5 

7580 CLS 

2585 REH sHONTH BY MONTH INCOME. 
EXPENSE, DIFFERENCE. AND MEANS ¥ 
7516 PRINT 


7520 PRINT 
D EXPENSE NE" 

7530 PRINT S$ 
7540 PRINT T$ 
79550 PRINT "HONTH" 
";TRB 14; "EXPENSE"; 
RENCE" 

756596 PRINT 5$ . 
7570 LET H$-"JHNFEBHARRPRHRYJUN- 
000657 


: TAB 7; 
TAB 25; 


“INCOME 
“DIFFE 


Line Notes: 


up your graph but should be 
deleted after running. K(1) 
would be Jan. expenses last 
year; RCS) Feb., etc. These will 
only appear on the graph when 
you enter each month this year, 
but they will be in memory 


waiting. 
2575: 6 
2580: Inverse space 
2588: A 
2620: 81 represents last year 


(change to suit your needs); 
space between each letter 
representing a month; 82 
represents this year. 

3006: Delete statements in 
REM after entering all your 
budget items. 


e 
x. 8 
` Z 
3590: Delete statements 
indicated in REM after running 
3600. 
4065: Letter O 
4080: Letter © 
4570: 3 
4579: 6 
4580: 8 
4585: D 
$588: A 
5030: Space between each 
letter. 
6010: 6 
6020: 5, 8 
6608: Change loan titles to 


suit your own needs. 
7520: A (2), A (2) 


7571 ET H=0 
7572 LET II=0 
7573 LET وع‎ 
7575 LET MO=3 
7576 LET MM=1 
7580 FOR TO 23 STEP 2 
7585 LET )zINT (ህሣ(5)-+,=) 
7586 LET *1) =INT (U(B+1)+.5) 
7500 PRI $MM TO HO) i: TAB 5;ህሠ፥ 
86 31 Bris TAB 23:W(B) -U(E 
+1 
7605 LET II-II«Ut(E) 
7506 LET EE-EE-«U(Bt«-1) 
2510 LET HO 0+3 
7520 LET MM=MM +2 
7625 IF ህ (መን) ንይ THEN LET HH=HWHH+åi 
7630 NEXT B 
7: ፳ 
11: S 
15: Inverse: MONEY MANAGER 
79: Letter O 
210: Once you have entered 


your income categories, delete 
statements indicated in REM. 
223: 6 
2295.5, 8 
230: Z 
255: Your income categories 
464: IF, LET statements 


credit the income to the proper 
account. . 
486: Prints a running total 


of both monthly and year-to-date 
income. 
505: Once you have entered 


your expense categories, delete 
statements indicated in REM. 

5125 4 

Sis: 5. B 

$18: Z 

722: IF, LET statements debit 
the appropriate account. 

810: Initialize each asset 
and liability balance with LET 
statements. 


B27: 5, B 
828: 2 
865: Change titles of assets 


and liabilities to suit your own 


needs. 
875: Inverse > on M 
893: Inverse > on M 
896: Inverse spaces; > on M 
1020: ሬ 
1025: 2, 8 
1030: 2 
1695: These 3 statements set 


charge. If your account does not have a check 
charge, you can delete lines 80, 90, and 100, 
and the “-A” of line 190. Alternatively, if you 
will use the program for accounts with the 
same check charge, you can make line 80: 

80A = (check charge) and delete lines 90 
and 100. 

The program then asks you to 

INPUT BANK BALANCE 
In response, you enter your balance as per 
your bank statement. 

The program then asks you to 

INPUT OUTSTANDING CHECKS 

IF FINISHED, INPUT 0 


You now enter, one at a time, the amount of 
-each check which was not returned with the 


statement. As you enter the amount of each 
check, it is displayed on the screen. When you 
have entered all such checks, enter 0. 

This sends the program on to the next step 
which asks you to 

INPUT UNRETURNED DEPOSITS 

IF FINISHED INPUT 0 
Now you enter, one at a time, the amount of 
each deposit which you made since the state- 
ment was compiled by the bank, that is, the 
amount of each deposit which does not appear 
on the statement. As you enter the amount of 
each such deposit, its value will appear on the 
screen. When you are finished, enter 0. The 
computer will now compute your correct 
checkbook balance (assuming the bank has 
not made a mistake!) and display 
CHECKBOOK BALANCE SHOULD BE: 


_ (balance) 


Memory Saving 

In entering the program, you should use 
keywords and tokens wherever possible in the 
PRINT statements. This saves considerable 
memory and is necessary if the program is to 
run in IK RAM. 

To use this procedure (from Richard 
McDaniel, SYNC 1:5) enter the line number, 
then enter the last keyword in the statement. 
Then back up the cursor, using the left arrow 


using DEB if the transaction was a debit, 
CRED if the transaction was a credit, or the 
check number if the transaction was a check; 
the amount of the transaction in the second (if 
the transaction was a debit or check) or third 
(if the transaction was a credit) column; and 
the resulting balance in the fourth column. 
For an example of how this works, suppose 
that your most recent balance was $1 10.10 and 
that your account charges you $0.25 per 
check. Upon entering these figures, the dis- 
play would show 
INPUT CODE, THEN INPUT AMT. 
ITEM DEBIT CREDIT BALANCE 
110.1 
Now suppose your next four transactions were 
check 215 for $50.; a $3.00 monthly service 
charge; a $240 deposit; and check 216 for 
$245.20. To enter these you would enter 215, 
then 50; 0 (for a debit), then 3; 1 (fora credit), 
then 240; and 216, then $245.20. The display 
would now show: 


INPUT CODE, THEN INPUT AMT. 


ITEM DEBIT CREDIT BALANCE 
110.1 

215 50 59.85 

DEB 3 56.85 

CRED 240 296.85 

216 245.20 51.4 


This display scrolis up with each entry, so 
you may continue until you have entered all 
transactions. The screen can hold eleven 
transactions at one time, so be sure you check 
your work from time to time. If you should 
detect an error, it can be offset using the 0 or 1 
code, and then the amount, to adjust the bal- 
ance appropriately. 


Program 2 

The second program is used to check your 
checkbook balance against your bank state- 
ment. When you run the program, it first asks 
you to , 

INPUT CHECK CHARGE 
In response, you enter your account per-check 


Checkbook Management 


George J. Repicky 


A computer with its TV display, makes the 
task of updating and balancing a checkbook 
simpler than using a four-function calculator. 
The display enables the user to double-check 
entries and so helps eliminate mistakes. In 
addition, if mistakes are made, they are easily 
corrected. Below are two programs which I 
developed for these purposes. Each requires 
the 8K ROM, and each fits into IK RAM. 


Program 1 

If you are like most people, you make a 
number of transactions —vwrite checks, make 
deposits, etc.—with your checkbook before 
you update the balance. The first of the two 
programs is designed to update your 
checkbook balance. To use the program, enter 
it into the computer, then RUN. 

The program first asks you to 

INPUT BALANCE 
At this point you enter your last computed 
balance. 

Then the program asks you to 

INPUT CHECK CHARGE 
In response, you enter the per check charge of 
your account. (If your checking account has 
no check charge, you can delete lines 220 and 
230, and the “-C” of line 380, from the pro- 
gram.) 

The program then clears the screen, and 
displays: 

INPUT CODE, THEN INPUT AMT. 

ITEM DEBIT CREDIT BALANCE 

At this point you enter each transaction in 
your checkbook in two steps. First, for each 
transaction you enter a code: O if the transac- 
tion was a debit (a monthly service charge, for 
example); 1 if the transaction was a credit (a 
deposit, perhaps); or the check number if the 
transaction was a check. Second, you enter 
the amount of the transaction. After each 
complete entry the computer displays the na- 
Sure of the transaction in the first column, 


a 


George J. Repicky, 49 Roosevelt Ave., 
Schenectady, NY 12304. 


Then back up using the left arrow (shift 5) 
until the cursor is before the word INPUT. 
Now enter THEN, using the token (shift 3). 
The display will read: 

260 THEN INPUT AMT.” 

Back up again until the cursor is before 
THEN, and enter CODE, using the token. To 
do this you must first obtain the function cur- 
sor (shift NEWLINE or shift ENTER), then 
enter the token CODE, (on the "I" key). The 
display will now read: 

260 CODE THEN INPUT AMT.” 

The cursor is now after the word CODE, so 
now is a good time to enter the comma. Next, 
back up again until the cursor is before the 
word CODE, and enter INPUT, again using 
the keyword (on the I Key). The display now 
reads: 

260 INPUT CODE, THEN INPUT AMT." 

Finally, back up again until the cursor is 
before the word INPUT, and enter PRINT, 
using the keyword (on the "P" key). At this 
time also enter the leading quotation mark. 
The display will now show the complete line, 
ready to enter: 

260 PRINT "INPUT CODE, THEN INPUT 
AMT." 

The whole thing sounds a bit complicated 
when you read it, but it is really quite simple 
once you get the hang of it. The memory sav- 
ing is substantial; 17 bytes for this one state- 
ment alone. a 


Program 2. 
Checkbook Statement Comparison. 


2000 
» INPUT CHECK CHARGE" 


209060 
x INPUT BANK BALANCE” 


13@ GOSUR 2000 
“ INPUT OUTSTANDING C 


150 GOSUB 2000 
160 GOSUB 4000 


c 
16@ IF C=@ THEN GOTO 230 
19@ LET B-B-C-1i 
200 PRINT C 
210 GOSUB 2009 
220 GOTO 170 
230 GOSUB 29000 
INT " INPUT UNRETURNED DE 

250 GOSUB 2000 
260 GOSUB 4000 
270 INPUT D 
280 IF D-O THEN GOTO 349 

LET B-B«D 
3009 PRINT D 
GOSUB 20909 
328 GOTO a70 
: GOSUB 2000 
S40 PRINT “BALANCE SHOULD BE: " 


N 
NT "IF FINXSHEO INPUT o" 
4018 GOSUB 2000 
ETURN 


Line notes: 


90: Inputs per check charge 

120: Inputs bank balance as per statement. 

170-230: Form a loop which inputs out- 
standing checks and adjusts the bank state- 
ment balance for them and associated per 
check charges. 

240-330: Adjust the bank statement bal- 
ance for any deposits made after the statement 
was prepared. 

340: Prints checkbook balance. 

2000: Subroutine used to scroll and space 
printout, 

4000: Subroutine to print statement. 


— ے_مم...ے.س ۱۱ش سم‎ ZZK 


An example may help here. Consider line 
260 from the first program: 
260 PRINT “INPUT CODE, THEN INPUT 
AMT.” 

To enter this line. first type: 
260 INPUT AMT." 
using the keyword INPUT (on the “I” key). 


(shift 5) until it is before the keyword. Now 
enter the next-to-last keyword. Repeat this 
procedure until all keywords are entered. You 
can enter intermediate text as you work, or 
after all keywords are entered. 


Program 1. Checkbook Update. 


300: Prints previous balance in col. 4. 

320: Enters code -0, 1, or check no. 

340: Enters amount of transaction. 

350: Branch if transaction was a credit. 

360: Decreases balance for debits. 

370: Prints check no. if transaction was.a 
check. 

380: Prints DEB if transaction Was a non- 
check debit. 

390: Decreases balance by per check 
charge if transaction was check. 

400: Prints amt. of trans. and resulting bal- 
ance. 

410: Returns for next transaction. 

1000: Branch from 350; increases bal. for 
credit. 

1010: Prints amt. of trans. and resulting 
balance. 

1020: Returns for next transaction. 

2000: Scroll and space subroutine; used 
after each line of display is printed. 
2030 RETURN 


INPUT BALANCE” 
. INPUT CHECK CHARGE” 
c 


INPUT CODE , THEN I 


280 PRINT "ITEM";TRB S; DEBIT"; 
TAB 13; "CREDIT"; TAB 21; “RALANCE 
` 29@ پژدوع‎ ۶ 2080 


- 320 INP 
340 INPUT Z 

350 IF Y=1 THEN GOTO 3ፎፎፎ 

260 LET BzB-Z 

370 IF Y»1 THEN PRINT Y; 

380 IF Y=@ THEN PRINT “DEB"; 
399 IF درب‎ THEN LET B-B-C 

490 PRINT TAB S;Z;TAB 21;B 

41@ GOTO 328 

12098 LET 8=B+z 

1910 PRINT “CRED”; TAB 12;Z;TAB 2 
1;B 

1229 


GOTO 310 
ፎወወወ SCROLL 


Line notes: 

210: Enters the previous checkbook bal- 
ance. 

230: Enters the per check charge. 

280: Sets the headings of the transaction 
listing. 


To erris human... 


BUT TO REALLY FOUL THINGS UP 
YOU NEED A COMPUTER 


The Face Clock 

The second program will give a display 
with the traditional face clock. The face is 
drawn only once and then the hands are 
PLOTed in and UNPLOTed when no longer 
needed. This program is suggested by an 
exercise in the chapter on time and motion in 
the ZX81 manual. 


Listing 2. Hand Clock. 
10 REM “FACE CLOCK" TO SAVE GO 


TO See 
12 PRINT INPUT TIHE" 
(T7108) 


14 INPUT T 

16 LET H-2£INT 

18 LET T-T-1002INT (T7190) 
20 IF T»15 THEN LET HzH+ł 
== IF T»45 THEN LET HceH«1i 
24 CLS 
26 FAST 
Je FOR D=i TO 12 

<a PRINT AT 10- GOS 

2134+102#SIN (D/624PID;D 

5 NEXT 


D 
SLOW 
POKE ተፎ TASSA 


(D^52PI) 


GOSUB 10900 

LET ፕ=ፕፐ+3 

IF T-60 THEN LET ፐ=ይ 

IF T=16 OR T=46 THEN GOTO 2 


LET P-1 

LET L-T7/3OzPI 

LET X-z27«1£z5IN ا‎ 

LET Y-22«18xCOS ا‎ 

LET CzX 

LET ሯ=ኙ 

GOSUB 1000 

GOSUB 319 

IF PEEK 16457»241 THEN GOTO 


PAUSE 219 
GOTO 86 


QNPOVONAU <0 ق جچ ۲ررۂ‎ 0 NOM 
900000000 ወወወወወወወወ ወወ 


خر ہر خر خر ر سر ہر بر خر خر ن۸ ۸0 0۸0 


نہ نہ ذ۸ ن۸ ن۸ 
OUP OW‏ 
90000 


LET G=H7/12:PI 

LET C=27+12FSIN G 
LET D=22+124COS G 
GOSUB 1 


መወወወጩጩወወ 0N CD CD ርን ርጋ ርንርን 


فر فرفر در ررر 
OOO ወ O ዝሇጩዬ ዕስሥ‏ خر جہ نیم 


ወወወፀወወሌክወወወወወወወወወወወ 
4 
D 
c 
m 
ዘዘዘዘዘዘዘዘዘዘ ፡ 
DDneooooorntu i 
0 
m 
0 
r 
٥ 
0 
x 


ኮሥኦ። 
900 
NOW 
0م‎ 
i 
ወ 
ሥር 
ፎ 


m 
9 
ወ 
8 


BS ህ 
ን HEN GOTO 6 


=SGN U 
ABS ህ 


IF H 
L 


PRP 
P9 
ወሀ 
68 


P 
ወወወ 
LB af عو‎ 
335 


N‏ ۸م 0٥‏ یہ ۵ص 


መ ጠጠ papa‏ مرا 
خر فرفر فر فرفر DOH pe p‏ 
1 
ዘ,172ፓፎኮክሠ” 22ወኮ”<ርርፎወጋ‏ 


numm 


OH 


TO H 

9 IF P-1 THEN PLOT A,B 

5 IF P=@ THEN UNPLOT A,B 
@ LET S-S«N 

ወ IF S«H THEN GOTO 1230 
@ LET S=S-H 

9 LET A=A+0 

1210 LET B-b«L 

1220 GOTO 1250 


ወ 
^" 
o 
D 


Keeping Time in the 
Home Office Chuck Dawson 


Listing 1. Digital Clock. 
1o REN “DIGITAL CLOCK“ TO SAVE 


GOTO 

15 PRINT " INPUT TIME" 
20 INPUT TIME 

25 CLS 


39 LET H-INT (TIME10@) :60+TIM 
E-INT (ፕ ፲11ሠፎ ታ2 652) 2190 
SS GOTO 148 


(M768) ) 718) 


60 LET T=7 
65 LET D-(INT 


(H760) ) -19 xD 
70 GOSUB 500- 


98 LET D-INT 
690) ) 7104.05) 
95 GOSUB Soe 
399 LET ٣۔3‎ 
110 LET D-H-INT (H710)z10 
120 GOSUB 5eo 
o Ss" PEEK 1564370245 THEN GOT 

140 PAUSE 1246 

1506 LET HzHei 

150 IF [453446 THEN LET H=9 

170 GOTO 49 

Soe LET ት ያወ ተር 5 

505 PRINT sT: 

S510 FOR N= 0 TÓ N*S 

515 LET X=PEEK N 

529 FOR L-1 TO 7 

S25 LET ር=ወ 

530 IF X«128 THEN GOTO 560 

540 LET C=126 

550 LET X-X-128 


(60£(H^60-INT {M/Z 


0۷ 

لہ 

9 
vzr 


IF H-789 THEN LET H-6e 
IF T=0 AND D=@ THEN LET N-7 


$e 


Program 1. Digital Clock. 


Since the Sinclair computers have an inter- 
nal timing feature. they can be used to make a 
clock display which will give you the time. 
Two basic programs are given below to do just 
that. 


A Digital Clock 

The first program provides you with a digi- 
tal clock. The display will show the time in 
digits about three inches high and extending 
all across the screen. 

Lines 130 and 140 contról the timing. Line 
130 counts the number of frames sent to the 
television since the last PAUSE and then holds 
until a specified number is reached. The 
PAUSE in the next line is used to fine tune 
things and also reset the frame counter for the 
next minute's cycle. 

If your computer is capable of SLOW 
mode, you will see a display which stays rock 
steady until a minute passes and the last digit 
slowly changes itself into the next appropriate 
number. In the SLOW mode it does not always 
take exactly the same amount of time to up- 
date the display. I have noticed that, if the 
memory is nearly full, the computer seems to 
take longer to compute. 

In the FAST mode, this trick will not work 
since no frames are sent during the compute 
cycle. So change line 130 to a PAUSE 3288 
and line 140 to POKE 16437,255. The large 
numbers themselves are generated by PEEK- 
ing into the ROM s own character generating 
routine and enlarging it eight times. For faster 
updating, only the middle six lines are used. 
There are blank lines above and below each 
character so there is no reason to waste time 
reproducing these. 

After you have typed in the program, use 
GOTO 700 to SAVE. The program will then 
run itself. 


————————————— 


Chuck Dawson, 6520 Victoria, Fort Worth, TX 
76118. 


* 


Program 3. Calendar. 


JANUARY 1983 


HON TUE VED THU FRI SAT 


FEB 999999 


MON TUE WED THU 
1 2 = ፈ 
5 9 35 11 
15 16 17 18 
22 25 24 == 


Listing 3. Calendar. 


S REM “CALENDAR” TO SAVE GOTO 
228 

10 LET AS="“COJANFEBMARAPRHAYIU 
NJULRUGSEPOCTNOUDECSLUM MON TUE W 
Ec THU FRI SAT” 

15 PRINT " INPUT MONTH" 

20 INPUT BS 

2S FOR H-1i TO 12 

3e IF BSti TO 3G)iz-zA$(34H TO 3*H 
+2) THEN GOTO 45 

35 NEXT M 

40 GOTO 20 

45 PRINT " INPUT YEAR" 

S@ INPUT Y 

SS IF Y:1752 THEN GOTO se 


80 PRINT AT 8,Zs4; 

85 LET H-Hs1 

90 GOSUB 200 

95 IF Z=0 THEN-LET 2=7 

100 FOR ፲=3ሏ TO 31 

110 PRINT. " "1," “ሠ 

120 IF I<1@ THEN PRINT “ رہ‎ 

130 IF I527 AND 33-PEEK 16441-Z 
x4 THEN STOP 

140 IF PEEK 1644125 THEN PRINT 


150 NEXT I 

200 LET X= 

210 IF H-1 OR M=2 THEN LET X-1 
220 LET L=Y-X 

230 LET X-M«X*12 

240 LET P-INT (Lviaa) 

250 LET Z-INT (134 (ረጀ+ኋ) S1 + ፲.ፐ 
(=5ዱ! ሪሥፋ) +INT (P74) -P 

260 LET Z-Z-7sINT zr+7) 

2706 RETURN 

29 SAVE “CALENDAR” 

310 RUN 


If you have only 2K RAM, you will find 
that this program fills up almost all available 
space. If you have a 16K module, vou can add 
the second hand and other decorative touches. 

After you have typed in the program, use 
GOTO 500 to SAVE. The program will then 
run itself. 


Setting Your Clock 

In both programs, after the program is run- 
ning, you are asked to input the time. Do not 
use a colon; just enter the figures: Not 3:45 but 
345. 


Program 2. Face Clock. 


A Calendar 

From time to time we want to see how a 
certain month falls in the calendar or what day 
of the week a certain date is on. Most calen- 
dars show only one year on either side of the 
calendar year. Thus dates beyond the printed 
calendar have to be calculated laboriously by 
hand with the danger that we may have over- 
looked a day in an irregular month. This pro- 
gram provides the solution to the problem. 

With this program you can enter any month 
and any year, and the computer will show you 
the calendar for that month. Well, not exactly 
any year. It has to be between September 14, 
1752, and February 28, 2200. Nevertheless 
that range covers most dates of interest. 

After you have typed in the program, use 
GOTO 300 to SAVE. The program will then 
run itself. The prompts will call for inputting 
the month and year. Type in at least the first 
three letters of the month and hit ENTER; then 
type in the year and hit ENTER. The com- 
puter will then display the calendar for that 
month. You can use either FAST or SLOW 
mode but remember that it takes much longer 
to produce the calendar in the SLOW mode. 

To test whether the program is working 
right, try DECEMBER 1941. We remember 
that the 7th was on a Sunday. Now try some 
other dates. Try your birth month and year. I 
use this program to plan business trips and 
vacations for the coming year even before I 
start getting those free calendars in the mail in 
December. 

This is a good program for showing off your 
computer to your friends. Try it at your next 
party. a” 


